(widget-sexp-value-to-internal):

Don't bother with pp for a symbol.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 9198ceed8e883afb8863e983ced026d11eeb1405..561c7efb42bfe34788d3e1ffc47013edff8f1fa2 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -2637,7 +2637,9 @@ It will read a directory name from the minibuffer when invoked."
 
 (defun widget-sexp-value-to-internal (widget value)
   ;; Use pp for printer representation.
-  (let ((pp (pp-to-string value)))
+  (let ((pp (if (symbolp value)
+               (prin1-to-string value)
+             (pp-to-string value))))
     (while (string-match "\n\\'" pp)
       (setq pp (substring pp 0 -1)))
     (if (or (string-match "\n\\'" pp)